"0","```r
samwell_site <- get_site(sitename=\"Samwell Cave\") #there's one site in the database that matches this
```"
"1","The API call was successful, you have returned  1 records.
"
"0","```r
samwell_datasets <- get_dataset(samwell_site[[1]]) # this search lists all datasets associated with Samwell Cave. There are 7 different datasets for the site: 4 containing vertebrate faunal information and 3 containing geochronologic information. 
```"
"1","The API call was successful, you have returned 7 records.
"
"0","```r
browse(samwell_datasets)
```"
"1","NULL
"
"0","```r
# Download info for just the last dataset, 14262. 
scpd_dataset <- get_dataset(samwell_site[[1]])$'14262'
```"
"1","The API call was successful, you have returned 7 records.
"
"0","```r
scpd_download <- get_download(scpd_dataset)
```"
"1","API call was successful. Returned record for Samwell Cave
"
"0","```r
# Extract the count data and the sample ages
scpdFauna <- counts(scpd_download)[[1]]
scpdAges <- ages(scpd_download)[[1]]
   
# save as R object for later upload in case no internet or API not working
# save(scpdFauna, scpdAges, file=\"data/scpdObjects.RData\")
# Note: Dataset 14261 contains the underlying radiocarbon dates for the site, in case you want to examine those. You'll need to uncomment the next two lines
# scpd_geochron <- get_geochron(14261)
# scpd_geochron[[1]]$geochron
```"
